home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m8.d64 / pica ital dbl (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  180b  |  10 lines
  1. 10 REM PICA ITAL DBL
  2. 20 OPEN4,4,6
  3. 30 PRINT#4,CHR$(27);"@";:REM CLR PRTR
  4. 40 PRINT#4,CHR$(27);"4";:REM ITALICS
  5. 45 PRINT#4,CHR$(27);"[199]";:REM DBL
  6. 50 CLOSE4
  7. 60 OPEN1,4,4
  8. 70 PRINT#1,"[212]HIS IS [208]ICA [201]TALICS DOUBLED!"
  9. 80 CLOSE1
  10.